home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00868_PH- bt best.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  586 b   |  21 lines
  1. on mouseDown
  2.   global gBoutons, gNumSpr, g1erSprLoc
  3.   if rollOver(g1erSprLoc + 1) and ((the mouseCast = the number of cast "MSKPH 0") or (the mouseCast = the number of cast "MSKPH 1")) then
  4.     curseur(2)
  5.     set gNumSpr to g1erSprLoc + 1
  6.   else
  7.     pass()
  8.   end if
  9. end
  10.  
  11. on mouseUp
  12.   global gBoutons, gNumSpr, g1erSprLoc, gSurvolPrec
  13.   curseur(1)
  14.   if rollOver(g1erSprLoc + 1) and ((the mouseCast = the number of cast "MSKPH 0") or (the mouseCast = the number of cast "MSKPH 1")) and (gNumSpr = (g1erSprLoc + 1)) then
  15.     beep()
  16.     set gSurvolPrec to -1
  17.   else
  18.     pass()
  19.   end if
  20. end
  21.